0 v=53248:pokev+22,peek(v+22)and247:pokev+22,(peek(v+22)and248)or7:pokev+17,peek(v+17)and247:pokev+17,(peek(v+17)and248)or7:fori=0to127:readb:poke8192+i,b:next:pokev+32,6:pokev+33,6:pokev+21,1:h=0:b$="{right*2}{space*4}{down}{left*6}{right}{space*6}{down}{left*7}{space*8}{down}{left*8}{space*8}{down}{left*8}{right}{space*6}{down}{left*7}{right*2}{space*4}"
1 q=54272:forl=qtoq+24:pokel,0:next:pokeq+11,129:pokeq+12,10:o=5:l=0:c=0:s=0:a=14:x=172:y=60:print"{clear}";:pokev,x:pokev+28,1:pokev+39,10:pokev+37,0:pokev+38,7:print"{down*20}{purple}{cm +*7}"chr$(13)"{cm +}{cyan}start{purple}{cm +}"chr$(13)"{cm +*7}{down*2}":t=peek(v+31):pokev+16,0:pokev+23,0:pokev+29,0:goto4
2 pokeq+4,0:pokeq+5,0:pokeq+24,15:pokeq+4,129:pokeq+5,128:pokeq+1,20:r=int(rnd(1)*3)-1:on-(a+r<1ora+w+r>36)gosub7:a=a+r:print"{reverse on}"c1$mid$(f$,-f+1,a-1)c2$h1$"{reverse off}"spc(w)"{reverse on}"h2$c1$right$(f$,37-a-w-f);:c=c-1:s=s+1:print:f=notf:poke2040,128-f:ifnotpeek(56320)and8thenx=x+4:pokev,xand255:pokev+16,-(x>255)
3 y=y+d:pokev+1,y:ifnotpeek(56320)and4thenx=x-4:pokev,xand255:pokev+16,-(x>255):data,85,64,1,85,80,5,106,80,5,187,144,6,221,144,6,170,144,6,150,144,1,150,64,,170,,,20,,,85,,1,21,32,2,20,64,,20,,,20,,,60,,,255,,,195,192,,192,208,,192,64,1,64,,
4 ifc=0thenl=l+1:readc,w,d,c1$,c2$,r$,h1$,h2$:poke1944,l+176:poke56216,1:t=peek(v+31):on-(l=6)gosub8:f$="":fori=1to9:f$=f$+r$:next:ifl=7thena=13:pokev+23,1:pokev+29,1:x=x-12:y=y-10:pokev,x:pokev+1,y
5 e$="{reverse on}":on-((peek(56320)and16)=0ando>0)gosub9:on-(peek(v+31)=0)goto2:pokeq+11,0:pokeq+12,0:pokeq+11,129:pokeq+12,9:pokeq+8,8:pokeq+7,200:print"{home}{yellow}pts:{white}"s:print"{cyan}hi: {white}"h:print"{down*3}{right*7}{yellow}{reverse on}press fire to play again":ifs>hthenh=s:print"{pink}{down*2}{right*8}{reverse on}you beat the hi-score"
6 pokev+39,rnd(1)*16:on-(peek(56320)<>111)goto6:restore:fori=0to127:readt:next:goto1:data,21,80,,85,84,1,90,148,1,110,228,1,183,100,1,170,164,1,170,164,,101,144,,42,128,,5,,,21,64,2,21,16,,69,32,,5,,,5,,,15,,,63,192,,240,192,1,192,192,,64,192,,,80,
7 t=peek(v+31):r=0:return:data150,10,.15,"{green}","{light green}","QWQW","Y","T",150,9,.15,"{purple}","{light blue}","VVVV","Y","T",150,8,.1,"{red}","{pink}","{cm +*4}","L","{sh @}",150,7,0.1,"{dark gray}","{gray}","NMMN",">","<",150,6,0.05,"{black}","{dark gray}","{cm +*4}","{reverse off}{cm k}","{cm k}"
8 a=2:return:data70,32,-1,"{light gray}","{white}","VVVV","V","V",150,12,.15,"{green}","{light green}","QWQW","Y","T",150,11,.15,"{purple}","{light blue}","VVVV","Y","T",150,10,.1,"{red}","{pink}","{cm +*4}","L","{sh @}",150,9,0.1,"{dark gray}","{gray}","NMMN",">","<",150,8,0.05,"{black}","{dark gray}","{cm +*4}","{reverse off}{cm k}","{cm k}",30000,8,0,"{yellow}","{red}","VVVV","C","C"
9 print"{home}";:k=(y-50)/8-2+3*(peek(v+23)and1):fori=0tok:print"{down}";:next:fori=0to(x-16)/8-5+2*(peek(v+23)and1):print"{right}";:next:print"{yellow}"right$(str$(o),1)e$"{left}"b$:fori=kto16:print"{down}";:next:on-(e$="{reverse off}")goto7:e$="{reverse off}":o=o-1:pokeq+11,0:pokeq+12,0:pokeq+11,129:pokeq+12,10:pokeq+8,12:pokeq+7,200:goto9